unit UVeiculo;

interface

type
  TVeiculo = class
    private
      FPneu: Integer;
      FVelocimetro: Integer;
      FAcelerador: Integer;
      FFreio: Integer;
      FMarca: String;
      FModelo: String;

    protected

    public
      constructor Create; // construtor
      destructor Destroy; override; // destrutor

      function GetMarca: String;
      procedure SetMarca(const Valor: String);

      function GetModelo: String;
      procedure SetModelo(const Valor: String);

      function GetPneu: Integer;
      procedure SetPneu(const Valor: Integer);

      function GetVelocimetro: Integer;
      procedure SetVelocimetro(const Valor: Integer);

      function GetAcelerador: Integer;
      procedure SetAcelerador(const Valor: Integer);

      function GetFreio: Integer;
      procedure SetFreio(const Valor: Integer);
  end;

implementation

uses SysUtils, Dialogs;

{ TVeiculo }

constructor TVeiculo.Create;
begin
  inherited;
  ShowMessage('Ligando a classe ' + TVeiculo.ClassName);
end;

destructor TVeiculo.Destroy;
begin
  inherited;

end;

function TVeiculo.GetAcelerador: Integer;
begin
  Result := FAcelerador;
end;

function TVeiculo.GetFreio: Integer;
begin
  Result := FFreio;
end;

function TVeiculo.GetMarca: String;
begin
  Result := FMarca;
end;

function TVeiculo.GetModelo: String;
begin
  Result := FModelo;
end;

function TVeiculo.GetPneu: Integer;
begin
  Result := FPneu;
end;

function TVeiculo.GetVelocimetro: Integer;
begin
  Result := FVelocimetro;
end;

procedure TVeiculo.SetAcelerador(const Valor: Integer);
begin
  FAcelerador := Valor;
end;

procedure TVeiculo.SetFreio(const Valor: Integer);
begin
  FFreio := Valor;
end;

procedure TVeiculo.SetMarca(const Valor: String);
begin
  FMarca := Valor;
end;

procedure TVeiculo.SetModelo(const Valor: String);
begin
  FModelo := Valor;
end;

procedure TVeiculo.SetPneu(const Valor: Integer);
begin
  FPneu := Valor;
end;

procedure TVeiculo.SetVelocimetro(const Valor: Integer);
begin
  FVelocimetro := Valor;
end;

end.
 